home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / C-Communications / (c)c4.d64 / mega vterm 4.6.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  16KB  |  501 lines
  1. 1 REM  BBS NAMES START AT LINE# 816 
  2. 2 REM  PHONE #'S START AT LINE# 921 
  3. 3 REM  QL$ IS ID/PASSWORD REMINDER  
  4. 4 POKE53280,0:POKE53281,0:PRINT"[147]":GOSUB8000
  5. 5 PRINT"[147]":POKE999,1:IFPEEK(828)<>169THENPRINT"             SETTING UP...":GOSUB9900
  6. 6 POKE665,5:POKE666,13:POKE1014,104:POKE1015,104:POKE1016,76:POKE1017,126
  7. 7 POKE1018,166:IFPEEK(22784)=76THEN51
  8. 11 POKE53281,11:PRINT"[147] MEGA VERSA-TERM ":PRINT"VERSION 4.6 / 10 FEB 85"
  9. 16 PRINT"ORIGINALLY BY STEVE PUNTER."
  10. 21 PRINT"CONVERTED TO C64 BY KEITH PETERSON."
  11. 26 PRINT"[158]MODIFIED AND ENHANCED BY:":PRINT"EARL GOLDBERG AND RICH BUCHANAN, [155]
  12. 27 [153]"LISTTHE KANSAS CITY COMMODORE USERS' GROUP."
  13. 28 [153]"ADDITIONS BY JONATHAN ROGERS"
  14. 31 [129]AX[178]1[164]1000:[130]AX:[137]46
  15. 36 [137]181
  16. 46 [153]"OPENLOADING MACHINE LANGUAGE SUBROUTINES..."
  17. 51 [151]24816,6:[151]24817,0:[143] 300BAUD 8BIT NO PARITY
  18. 56 [151]53280,0 :[151]646,7:[151]53281, 0
  19. 61 [139][194](22784)[179][177]76[167][147]"AVT.ML2",8,1
  20. 66 [139][194](49152)[179][177]169[167][147]"AVT.ML1",8,1
  21. 81 R%[178]5:MO%[178]6:SE$[178]"":ML[178]22784
  22. 86 [151]56,86:[151]644,86:[156]:[159]5,2,0,[199]([194](24816))[170][199]([194](24817))
  23. 91 [151]665,5:[151]666,13:RE$[178]" ":SE$[178]" ":MO%[178]134:R%[178]0:C$[178]"0123456789ABCDEF"
  24. 96 RP[178]2:RS[178]0:WP[178]RP:WS[178]RS
  25. 101 BS[178]255:TP$[178]"(null)LD 7 PEEKIT (null)ROTOCOL":TY[178]0
  26. 106 [151]24575,RP:[151]24574,RS[170]96:[151]24573,WP:[151]24572,WS[170]96
  27. 111 PA(0)[178]10:PA(1)[178]6:PA(2)[178]2
  28. 116 ML[178]22784:[153][199](14):[151]24569,0
  29. 121 [159]1,8,15:[151]556,0:[151]552,0:[151]553,1
  30. 122 [139][194](999)[178]1[167][151]999,0:DN$[178]"":[137]1356
  31. 126 DN$[178]"":[137]136
  32. 131 [161]#5,A$,A$:[139]FF[178]1[167][141]1056
  33. 133 [158]ML:[160]11:[151]24569,0:TM[178]0
  34. 136 [151]198,0:[151]53280,6:[153]"LOADCONT  =*=(null)EGA (null)ERSA-(null)ERM 4.6  (null)ATNRIGHT$(null) (null)VAL(null)(null)=*=  "
  35. 137 SC[178]1014
  36. 141 [153]"         1 > (null)ERMINAL (null)ODE":[153]"         2 >CLR (null)RANSMIT (null)ROGRAM "
  37. 146 [153]"         3 >CLR (null)ECEIVE (null)ROGRAM"
  38. 151 [153]"         4 > STR$ISK LENOMMANDS"
  39. 156 [153]"         5 >DEF ATNUTODIAL"
  40. 161 [153]"         6 >PRINT# (null)OGGLE (null)UNTER (null)ROTOCOLS"
  41. 163 [139]TY[178]1[167][153]"         7 >OPEN LENHANGE PEEKLOCK-(null)RANSMIT (null)IZE"
  42. 165 [153]"         8 > CHR$RAPHICS (null)ERMINAL (null)ODE"
  43. 166 [153]"         9 > (null)(null)RIGHT$(null)"
  44. 171 [153]"  <LEN(null)(null)/LEFT$(null)(null)VAL>SYS (null)ETURN TO (null)VAL(null)(null)"
  45. 172 [153]"         PEEK > LENHECK PEEKELL (null)OLUME"
  46. 173 [153]"         LEN >OPEN (null)ESET LENLOCK
  47. 176 PRINT"[159]  [208]UNTER VERSION : "TP$
  48. 178 IFTY=1THENPRINT"[159]                   [194]LOCK SIZE ="BS"[157] "
  49. 181 SYSSC:GETA$
  50. 186 IFA$=""THEN181
  51. 187 IFA$="B"THEN198
  52. 188 IFA$="C"THEN 7100
  53. 191 ONVAL(A$)GOTO201,391,216,1081,576,1351,1451,7000,496
  54. 196 GOTO181
  55. 198 FF=1:GOSUB1056:POKE198,0:GOTO181
  56. 201 PRINT"[147]  [212]ERMINAL [205]ODE  "
  57. 211 GOTO1471
  58. 216 PRINT"[147]    [208]UNTER [196]OWNLOADING [205]ODE  [146]":PRINT"          [180]"TP$"[170]"
  59. 221 PRINT"          [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":PRINT"[206]AME OF [198]ILE FOR [196]ISK?"
  60. 226 PRINT" [195]AUTION: [193]UTO [211]AVE W/ [210]EPLACE [146]":IFTY=1THEN1426
  61. 231 PRINT"> ";:GOSUB516:S$=B$
  62. 236 IFS$=""THENPRINT#5,"[193]";:GOTO1471
  63. 241 S$="@0:"+S$
  64. 246 GOSUB346:S$=S$+T$+",W"
  65. 251 CLOSE2:OPEN2,8,2,S$:GOSUB551:IFES THENPRINT:PRINT""ES$"":CLOSE2:GOTO216
  66. 253 PRINT"[147][156][210][197][195][197][201][214][201][206][199][146] "B$"":GOSUB11000
  67. 256 PRINT#5,"TTTTTTTTTTTTTTTTTTTTTTT";
  68. 261 FORX=0TO10:NEXT:GET#5,A$:SS=ST:IFSS=0THEN261
  69. 266 SYSML+18:SS=ST:IFSS THEN291
  70. 271 FORX=0TO10:NEXT:GET#5,A$:SS=ST:IFSS=0THEN271
  71. 276 S1=PEEK(ML-2):S2=PEEK(ML-1):SYSML+12
  72. 281 IFS1<>PEEK(ML-2)ORS2<>PEEK(ML-1)THEN296
  73. 286 SYSML+15:PRINT#5,"";:PRINT"-";:GOTO261
  74. 291 CLOSE2:PRINT#5,"SSSSSSSSSSSSSSSSSSSSS";:PRINT:PRINT"[156] [196][207][206][197] ":FF=1:GOTO1471
  75. 296 PRINT#5,"";:PRINT":";:GOTO261
  76. 301 PRINT"[212]YPE OF [198]ILE:"
  77. 306 PRINT"([208])ROGRAM, ([215])ORD[208]RO, OR ([211])EQ?":PRINT"> ";
  78. 311 GETB$:IFB$=""THEN311
  79. 316 TY$=B$:FL=0
  80. 321 IFB$="P"THENT$=",P":POKE557,0:PRINT"[208]ROGRAM":FORX=1TO900:NEXTX:RETURN
  81. 326 IFB$="S"THENT$=",S":POKE557,0:PRINT"[211][197][209]":FORX=1TO900:NEXTX:RETURN
  82. 331 IFB$="W"THENT$=",P":POKE557,1:PRINT"[215]ORD[208]RO":FORX=1TO900:NEXTX:RETURN
  83. 336 IFB$=CHR$(13)THENFL=1:RETURN
  84. 341 GOTO311
  85. 346 PRINT#5,"UUUUUUUUUUUUUUUUUUUUUUUUU";
  86. 351 GET#5,A$:IFST<>0THEN351
  87. 356 IFA$="P"THENT$=",P":POKE557,0:A$="[208]ROGRAM":GOTO376
  88. 361 IFA$="S"THENT$=",S":POKE557,0:A$="[211][197][209]":GOTO376
  89. 366 IFA$="W"THENT$=",P":POKE557,1:A$="[215]ORD[208]RO":GOTO376
  90. 371 GOTO351
  91. 376 PRINT"[198]ILE [212]YPE: "A$""
  92. 381 GET#5,A$:IFST=0THEN381
  93. 386 RETURN
  94. 391 PRINT"[147]  [208]UNTER [213]PLOADING [205]ODE  [146]":PRINT"          [165]"TP$"[167]"
  95. 393 PRINT"          [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":IFTY=1THEN1376
  96. 396 PRINT"[206]AME OF [198]ILE TO [211]END?":PRINT"> ";:GOSUB516:S$=B$:IFS$=CHR$(13)THENS$=""
  97. 401 IFS$=""THENPRINT#5,"[193]";:GOTO1471
  98. 406 GOSUB301:IFFLTHENS$="":GOTO401
  99. 408 PRINT"[147][156][212][210][193][206][211][205][201][212][212][201][206][199][146] "S$"":GOSUB11000
  100. 411 CLOSE2:OPEN2,8,2,S$+T$:GOSUB551:IFESTHENPRINT""ES$"":CLOSE2:GOTO396
  101. 416 FORX=1TO10:PRINT#5,TY$;:NEXTX:PRINT
  102. 421 GET#5,A$:IFST<>0ORA$<>"U"THEN421
  103. 426 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN426
  104. 431 SYSML+9:CK=ST
  105. 436 FORX=1TO400:NEXT
  106. 441 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN441
  107. 446 FORT=0TO255:PRINT#5,CHR$(PEEK(ML-256+T));:NEXTT
  108. 451 PRINT#5,"ZZZZZZZZZZZZZZZZZZZZZZZZZZ";
  109. 456 IFPEEK(669)<>PEEK(670)THEN456
  110. 461 GET#5,A$:IFST<>0THEN461
  111. 466 IFA$=""THENPRINT":";:GOTO436
  112. 471 IFA$<>""THEN461
  113. 476 IFCK=0THENPRINT"-";:GOTO426
  114. 481 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN481
  115. 486 PRINT:PRINT"[156] [196][207][206][197][160]":FF=1:CLOSE2:GOTO1471
  116. 491 SYSML+21:A$=CHR$(PEEK(634)):RETURN
  117. 496 IFTY=0THENPRINT:PRINT
  118. 498 PRINT"[209][213][201][212]?  [193][210][197] [217][207][213] [211][213][210][197][146]?  (Y/N)";
  119. 501 GETZ$:IFZ$="N"THEN136
  120. 506 IFZ$="Y"THENCLOSE5:CLOSE1:CLOSE2:CLOSE11:GOTO1306
  121. 511 GOTO501
  122. 516 PRINT" [146][157]";:B$=""
  123. 521 GETA$:IFA$=""ORA$=""ORA$="[147]"THEN521
  124. 523 IFA$=""ORA$="[145]"ORA$=""ORA$="[157]"THEN521
  125. 524 IFA$=" "THENIFLEN(B$)=0THEN521
  126. 526 IFA$=CHR$(20)THEN541
  127. 531 IFA$=CHR$(13)THENPRINT" ":RETURN
  128. 536 B$=B$+A$:PRINT" [157]"A$" [146][157]";:GOTO521
  129. 541 IFLEN(B$)=0THEN521
  130. 546 B$=LEFT$(B$,LEN(B$)-1):PRINTA$;:GOTO521
  131. 551 REM GET ERROR CHANNEL
  132. 556 INPUT#1,E1$,E2$,E3$,E4$
  133. 561 ES$=E1$+","+E2$+","+E3$+","+E4$
  134. 566 ES=VAL(E1$):RETURN
  135. 571 POKE22784,0:RUN
  136. 576 B1=56577:B2=56579:IF(PEEK(B1)AND16)<>0THEN651
  137. 578 PRINT"       [217]OU ARE CURRENTLY [207][206]-[204][201][206][197]!":GOSUB10000:POKE198,0:GOTO181
  138. 651 POKEB2,32:POKEB1,0
  139. 656 PRINT"[147][149]     -- [194]ULLETIN [194]OARD [196]IRECTORY --     [146]":GOSUB816:SYSSC
  140. 657 PRINT"[156][217]OUR CHOICE":GOSUB891
  141. 661 PRINT"[145][205]OVE [212]-[196] SWITCH TO [196][193][212][193][146]               ":FORK=1TO1000:NEXTK:GOTO676
  142. 666 D$="":PRINT"[145][197]NTER NUMBER TO DIAL >     [157][157][157][157][157]";:INPUTD$:IFLEN(D$)<7THEN656
  143. 671 RETURN
  144. 676 POKEB1,32:T=100
  145. 681 IFZY$<>"[136]"ANDZY$<>""THENT=T-1:GETZY$:IFT<>0THEN681
  146. 682 IFZY$="[136]"THENZY$="":GOTO651
  147. 683 IFZY$=""THENZY$="":POKEB1,0:GOTO136
  148. 686 D=LEN(D$):FORX=1TOD:N$=MID$(D$,X,1):IFN$<CHR$(48)ORN$>CHR$(57)THENII=1
  149. 691 PRINT"[129]"N$"[146]";:N=VAL(N$):IFN=0THENN=10:IFII=1THENII=0:NEXTX:GOTO651
  150. 696 GOSUB721:NEXTX
  151. 701 NT=NT+1:FORXB=1TO(40-D):PRINT" ";:NEXTXB
  152. 706 PRINT"[152][212]RY #"NT:GOTO771
  153. 711 PRINT"  [195][207][206][206][197][195][212][197][196]....GOING TO [212][197][210][205][201][206][193][204] [205][207][196][197]":PRINTQL$:SYS49173:GOTO1471
  154. 721 FORN1=1TON
  155. 726 POKEB1,0
  156. 731 T=3
  157. 736 T=T-1:IFT<>0THEN736
  158. 741 POKEB1,32:T=3
  159. 746 T=T-1:IFT<>0THEN746
  160. 751 NEXTN1:T=15
  161. 756 T=T-1:IFT<>0THEN756
  162. 761 RETURN
  163. 766 END
  164. 771 PRINT"  [156]([208]RESS <[198]7> TO CHOOSE A NEW NUMBER)":CT=0:DC=0:BU=0:SI=0:SYSSC
  165. 773 IFLEN(D$)>8THENSI=-100
  166. 776 PRINT"[215]HEN CONNECTION IS MADE, BELL WILL SOUNDBEFORE GOING TO [212]ERMINAL";
  167. 778 PRINT" MODE.":POKE198,0
  168. 781 PRINT" ---=[ [208]RESS[159] <[195]LR/[200]OME> FOR [205]ENU ]=----";:NP=0:FOR ZZ= 450TO0STEP-1
  169. 786 GETA$:IFA$="[136]"THENA$="":ZZ=-1:GOTO651
  170. 791 X=PEEK(B1):X=XAND16:GOSUB1311
  171. 796 IFA$=CHR$(19)THENPOKEB1,0:A$="":GOTO136
  172. 798 IFBU>3ANDDC=0ANDCT=0THENBU=0:ZZ=-1:GOTO806
  173. 801 NEXTZZ
  174. 806 POKEB1,0:FORZY=1TO200:NEXTZY:PRINT"[145][145][145][145][145][145][145][145][145][158]  ###### [195]ONTINUOUS [196]IALING [205]ODE";
  175. 811 PRINT" #######":PRINT"              [157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  176. 812 FORZY=1TO150:GETZY$:IFZY$<>"[136]"ANDZY$<>""THENNEXT
  177. 813 IFZY$="[136]"THENZY$="":ZY=51:POKEB1,0:GOTO651
  178. 814 IFZY$=""THENZY$="":ZY=51:POKEB1,0:GOTO136
  179. 815 GOTO676
  180. 816 PRINT"[145]";
  181. 817 REM-DON'T CHANGE POSITION OF QUOTES!        ===============================
  182. 818 PRINT" <1>[200][193][204] #1          ";
  183. 819 PRINT" <2>[195][207][205][208][213][211][197][210][214][197]      ";
  184. 820 PRINT" <3>[195][207][205][211][208][197][195]         ";
  185. 821 PRINT" <4>[212][208][213][199]            ";
  186. 825 PRINT" <5>[195][207][205][211][208][197][195] [201][201]      ";
  187. 826 PRINT" <6>[193][205][197][216] [195][207][210][208].      ";
  188. 829 PRINT" <7>[194][213][199] [194][207][193][210][196]       ";
  189. 831 PRINT" <8>[195][205][194][194][211]           ";
  190. 832 PRINT" <9>[213][211][197][210]*[208][207][210][212]       ";
  191. 836 PRINT"<10>[195][213][199][207][210] [195][205][194][194][211]     ";
  192. 837 PRINT"<11>[195][207][205][205][207][196][207][210][197] [205][193][199][201][195] ";
  193. 841 PRINT"<12>[208][213][206][212][197][210] [208][211][201]      ";
  194. 842 PRINT"<13>[194][194][194][194][211]-8661      ";
  195. 846 PRINT"<14>[194][194][194][194][211]-5833      ";
  196. 847 PRINT"<15>[194][194][194][194][211]-9047      ";
  197. 851 PRINT"<16>[194][194][194][194][211]-9991      ";
  198. 852 PRINT"<17>[214][207][201][196] [194][194][211]        ";
  199. 856 PRINT"<18>- - - - - - - - ";
  200. 857 PRINT"<19>- - - - - - - - ";
  201. 861 PRINT"<20>- - - - - - - - ";
  202. 862 PRINT"<21>- - - - - - - - ";
  203. 871 PRINT"<22>- - - - - - - - ";
  204. 872 PRINT"<23>- - - - - - - - ";
  205. 876 PRINT"<24>- - - - - - - - ";
  206. 881 PRINT"[149]              [146][159] <99> [207]THER [149]              "
  207. 886 RETURN
  208. 891 NT=0
  209. 896 PRINT"";
  210. 901 A$="":INPUTA$:IFVAL(A$)>99THEN651
  211. 902 QL$="":IFVAL(A$)=99THEN666
  212. 903 IFVAL(A$)<1THEN136
  213. 904 IFLEN(A$)>2THEN651
  214. 906 ONVAL(A$)GOTO921,926,931,936,941,946,951,956,961,966,971,976,981,986,991
  215. 911 A=VAL(A$)-15
  216. 916 ONAGOTO996,1001,1006,1011,1016,1021,1026,1031,1036,1041,1046
  217. 917 GOTO651
  218. 920 REM ########## BBS #1 #############
  219. 921 D$="1-816-931-7425"
  220. 922 QL$="<ID:******  PWD:******>":RETURN
  221. 925 REM ########## BBS #2 #############
  222. 926 D$="366-1869"
  223. 927 QL$="<ID:******  PWD:******>":RETURN
  224. 930 REM ########## BBS #3 #############
  225. 931 D$="633-0185"
  226. 932 QL$="<ID:******  PWD:******>":RETURN
  227. 935 REM ########## BBS #4 #############
  228. 936 D$="782-9534"
  229. 937 QL$="<ID:******  PWD:******>":RETURN
  230. 940 REM ########## BBS #5 #############
  231. 941 D$="633-4262"
  232. 942 QL$="<ID:******  PWD:******>":RETURN
  233. 945 REM ########## BBS #6 #############
  234. 946 D$="1-877-0280"
  235. 947 QL$="<ID:******  PWD:******>":RETURN
  236. 950 REM ########## BBS #7 #############
  237. 951 D$="454-5330"
  238. 952 QL$="<ID:******  PWD:******>":RETURN
  239. 955 REM ########## BBS #8 #############
  240. 956 D$="1-301-251-0599"
  241. 957 QL$="<ID:******  PWD:******>":RETURN
  242. 960 REM ########## BBS #9 #############
  243. 961 D$="1-817-293-6331"
  244. 962 QL$="<ID:******  PWD:******>":RETURN
  245. 965 REM ########## BBS #10 ############
  246. 966 D$="1-716-334-7052"
  247. 967 QL$="<ID:******  PWD:******>":RETURN
  248. 970 REM ########## BBS #11 ############
  249. 971 D$="1-716-633-7731"
  250. 972 QL$="<ID:******  PWD:******>":RETURN
  251. 975 REM ########## BBS #12 ############
  252. 976 D$="624-5431"
  253. 977 QL$="<ID:******  PWD:******>":RETURN
  254. 980 REM ########## BBS #13 ############
  255. 981 D$="481-8661"
  256. 982 QL$="<ID:******* PWD:******>":RETURN
  257. 985 REM ########## BBS #14 ############
  258. 986 D$="487-5833"
  259. 987 QL$="<ID:******* PWD:******>":RETURN
  260. 990 REM ########## BBS #15 ############
  261. 991 D$="481-9047"
  262. 992 QL$="<ID:******* PWD:******>":RETURN
  263. 995 REM ########## BBS #16 ############
  264. 996 D$="277-9991"
  265. 997 QL$="<ID:******* PWD:******>":RETURN
  266. 1000 REM ########## BBS #17 ###########
  267. 1001 D$="759-3485"
  268. 1002 QL$="<ID:****** PWD:******>":RETURN
  269. 1005 REM ########## BBS #18 ###########
  270. 1006 D$="**************"
  271. 1007 QL$="<ID:****** PWD:******>":RETURN
  272. 1010 REM ########## BBS #19 ###########
  273. 1011 D$="**************"
  274. 1012 QL$="<ID:****** PWD:******>":RETURN
  275. 1015 REM ########## BBS #20 ###########
  276. 1016 D$="**************"
  277. 1017 QL$="<ID:****** PWD:******>":RETURN
  278. 1020 REM ########## BBS #21 ###########
  279. 1021 D$="**************"
  280. 1022 QL$="<ID:****** PWD:******>":RETURN
  281. 1025 REM ########## BBS #22 ###########
  282. 1026 D$="**************"
  283. 1027 QL$="<ID:****** PWD:******>":RETURN
  284. 1030 REM ########## BBS #23 ###########
  285. 1031 D$="**************"
  286. 1032 QL$="<ID:****** PWD:******>":RETURN
  287. 1035 REM ########## BBS #24 ###########
  288. 1036 D$="**************"
  289. 1037 QL$="<ID:****** PWD:******>":RETURN
  290. 1040 REM ########## BBS #25 ###########
  291. 1041 D$="**************"
  292. 1042 QL$="<ID:****** PWD:******>":RETURN
  293. 1045 REM ########## BBS #26 ###########
  294. 1046 D$="**************"
  295. 1047 QL$="<ID:****** PWD:******>":RETURN
  296. 1056 S=54272:FORL=0TO24:POKES+L,0:NEXT:POKES+1,130:POKES+5,9:POKES+15,30:POKES+24,15
  297. 1061 FORP=1TO7:POKES+4,29:FORT=1TO200:NEXT:POKES+4,20:NEXT
  298. 1066 POKES+24,0:POKES+15,0:POKES+5,0:POKES+1,0:FORL=0TO24:POKES+L,0:NEXT
  299. 1068 IF FF=1THENFF=0:RETURN
  300. 1071 POKE198,1:POKE631,13
  301. 1076 PRINT"[147]";:GOTO711
  302. 1081 CLOSE15:OPEN15,8,15:PRINT"[147]":GOTO1241
  303. 1086 PRINT"[147][159] <[211][208][193][195][197][194][193][210] TO STOP/CONTINUE>":SYS828:OPEN1,8,15
  304. 1171 IFFG=1THENPRINT"[145][145]":FG=0
  305. 1172 PRINTTAB(8)"[156][208]RESS ANY KEY TO CONTINUE"
  306. 1176 GET A$:IFA$=""THEN1176
  307. 1181 GOTO1241
  308. 1186 IFT$="M"THENCLOSE7:CLOSE6:GOTO136
  309. 1191 GETT$:IFT$=""GOTO1186
  310. 1196 RETURN
  311. 1201 REM DISK COMMANDS
  312. 1206 C$="":PRINT"[145]>                              [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  313. 1211 GETB$:IFB$=""THEN1211
  314. 1216 PRINTB$;:IFB$=CHR$(13)THEN1226
  315. 1221 C$=C$+B$:GOTO1211
  316. 1226 PRINT#15,C$
  317. 1231 PRINT"[145]";
  318. 1236 INPUT#15,A$,B$,C$,D$:PRINT"           "A$","B$","C$","D$"        ":GOTO1171
  319. 1241 PRINT"[147]   [158]  ******* [196]ISK [195]OMMANDS *******  [146]":PRINT
  320. 1246 PRINT"           [196] - [196]IRECTORY"
  321. 1251 PRINT"           [194] - [194]LOCKS [198]REE"
  322. 1256 PRINT"           [211] - [196]ISK [211]TATUS"
  323. 1261 PRINT"           > - [196]ISK [195]OMMAND"
  324. 1266 PRINT"           [205] - [210]ETURN TO [205]AIN [205]ENU":POKE198,0
  325. 1268 FORX=1TO6:PRINT"          ";MID$("[149][154][156]",X,1);"[208]RESS KEY FOR OPTION"
  326. 1271 FORXX=1TO10:NEXTXX:GETA$:IFA$=""THENPRINT"[145]";:NEXTX:GOTO1268
  327. 1276 IFA$="D"THEN1086
  328. 1281 IFA$="."ORA$=">"THENFG=1:GOTO1201
  329. 1286 IFA$="M"THENCLOSE6:CLOSE7:GOTO136
  330. 1291 IFA$="S"THEN1231
  331. 1296 IFA$="B"THEN1541
  332. 1301 GOTO1271
  333. 1306 SYS64738
  334. 1311 DC=DC+X:IFDC>0THENSI=SI+1:GOTO1322
  335. 1316 CT=CT+1:SI=0:IFCT<40THENRETURN
  336. 1321 ZZ=-1:GOTO1056
  337. 1322 IFNP>0THENIFSI>75THENZZ=-1:DC=0:CT=0:GOTO1341
  338. 1323 IFNP=0THENIFSI>120THENZZ=-1:DC=0:CT=0:GOTO806
  339. 1325 IFCT>0ANDCT<17THENBU=BU+1
  340. 1326 IFCT<17THENDC=0:CT=0:RETURN
  341. 1331 NP=NP+1:IFNP>2THENZZ=-1
  342. 1336 DC=0:CT=0:RETURN
  343. 1341 DI$="  ** [206][207][210][205][193][204] [208][200][207][206][197] [204][201][206][197]! **              ":FF=1
  344. 1343 PRINT"[145][145][145][145][145][145][145][145][145]"DI$:POKEB1,0:POKEB2,32:GOSUB1056:PRINT"[208]RESS ANY KEY TO CONTINUE
  345. 1344 [151]198,0:[146]198,1:[151]198,0:[137]651
  346. 1351 [139]TY[178]1[167][138]6
  347. 1356 [151]53280,0:[129]K[178]1[164]125:[130]
  348. 1361 [160]5:[159]5,2,0,[199](6):[151]665,75:[161]#5,A$:BS[178]255:TY[178]1
  349. 1366 [160]15:[159]15,8,15:TP$[178]"CLR(null)EW 8 PEEKIT (null)ROTOCOL"
  350. 1371 TY$[178]"PSP":[137]136
  351. 1376 [153]"(null)AME OF ASCILE TO SEND?":[153]"> ";:[141]1481:[139]I$[178]""[167]1471
  352. 1378 [153]"LOADCLR(null)(null)ATN(null)(null)(null)RIGHT$(null)(null)RIGHT$(null)CHR$WAIT "I$"":[141]11000
  353. 1381 [153]:T$[178]",P,R":[160]2:[159]2,8,2,I$[170]T$:[132]15,ER:[139]ER[178]64[167]1396
  354. 1386 FT[178]1:[139]ER[179]20[167]1416
  355. 1391 [160]2:[153]"STR$ISK VALRROR!":[137]1471
  356. 1396 T$[178]",S,R":[160]2:[159]2,8,2,I$[170]T$:[132]15,ER:[139]ER[178]64[167]1411
  357. 1401 FT[178]2:[139]ER[179]20[167]1416
  358. 1406 [160]2:[153]"STR$ISK VALRROR!":[137]1471
  359. 1411 [160]2:[153]"ASCILE (null)YPE VALRROR!":[137]1471
  360. 1416 [158]49173:[151]51227,FT:[158]49164:[139][194](512)[179][177]1[167]1421
  361. 1418 [160]2:[158]49173:[153]:[153]:[153]"CLR STR$(null)(null)VAL ":FF[178]1:[137]1471
  362. 1421 [158]49173:[151]51224,BS:[158]49158:[160]2:[158]49173:[153]:[153]"CLR STR$(null)(null)VAL ":FF[178]1:[137]1471
  363. 1426 [153]"(null)AVE ATNS > ";:[141]1481:[153]:[139]I$[178]""[167]1471
  364. 1428 [153]"LOADCLR(null)VALLENVALRIGHT$(null)RIGHT$(null)CHR$WAIT "I$"":[141]11000
  365. 1431 [158]49173:[158]49161:[139][194](512)[178]1[167][158]49173:FF[178]1:[137]1471
  366. 1436 T$[178]","[170][202](TY$,[194](51227),1)[170]",W"
  367. 1441 [159]2,8,2,"@0:"[170]I$[170]T$:[129]X[178]1[164]1300:[130]X:[153]:[158]61310
  368. 1446 [158]49173:[158]49155:[160]2:[151]668,[194](667):[158]49173:FF[178]1
  369. 1447 [153]:[153]"CLR STR$(null)(null)VAL ":[137]1471
  370. 1451 [139]TY[179][177]1[167]181
  371. 1453 [153]"               (null)EW PEEKLOCK (null)IZEWAIT > ";:[141]1481:[139]I$[178]""[167]136
  372. 1456 BS[178][181]([197](I$)):[139]BS[179]40[167]BS[178]40
  373. 1461 [139]BS[177]255[167]BS[178]255
  374. 1466 [137]136
  375. 1471 [139]FF[178]1[167][141]1056
  376. 1476 [158]49173:[158]49167:[137]136
  377. 1481 I$[178]""
  378. 1486 [153]" WAITCMD";
  379. 1491 [161]A$:[139]A$[178]""[176]A$[178]""[176]A$[178]"LOAD"[176]A$[178]""[176]A$[178]"ON"[176]A$[178]""[176]A$[178]"CMD"[167]1491
  380. 1493 [139]A$[178]" "[167][139][195](I$)[178]0[167]1491
  381. 1496 [139]A$[178][199](13)[167]1531
  382. 1501 [139]A$[178][199](20)[167]1521
  383. 1506 [139][195](I$)[177]16[167]1491
  384. 1511 [139]([198](A$)[175]127)[179]32[167]1491
  385. 1516 [153]A$;:I$[178]I$[170]A$:[137]1486
  386. 1521 [139][195](I$)[178]0[167]1491
  387. 1526 [153]" CMDCMD";:I$[178][200](I$,[195](I$)[171]1):[137]1486
  388. 1531 [153]" ":[142]
  389. 1536 [153]
  390. 1541 [143] BLOCK FREE CHECKER BY JIM BUTTERFIELD
  391. 1546 [152]15,"I0"
  392. 1551 [159]9,8,0,"$0:"[170]S$
  393. 1556 N$[178][199](0)
  394. 1561 [161]#9,A$,A$,A$,A$,A$,A$
  395. 1566 [161]#9,A$:[139]A$[179][177]""[137]1566
  396. 1571 [161]#9,A$,A$,A$,B$
  397. 1576 F[178][198](A$[170]N$)[170][198](B$[170]N$)[172]256
  398. 1581 [139]S$[179][177]"7%JK"[167][160]9
  399. 1586 [160]9:[153]"ON           PEEK(null)(null)LEN(null)(null) ASC(null)VALVAL :"F"CMD     "
  400. 1591 [160]9:[153]:[153][163]8)"ONCLR(null)RESS ANY KEY TO CONTINUE":[151]198,0
  401. 1596 [161] A$:[139]A$[178]""[167]1596
  402. 1601 [137]1241
  403. 7000 [143] GRAPHICS TERMINAL MODE
  404. 7005 [153]"LOAD CHR$RAPHICS (null)ERM "
  405. 7007 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  406. 7009 [153]"ASCOR LEN(null)PEEKPEEK(null) OR OTHER CHR$RAPHIC PEEKOARDS"
  407. 7010 [161]#5,A$:[151]212,0
  408. 7015 [139]A$[178]""[167]7050
  409. 7017 [139]A$[178][199](13)[176]A$[178][199](141)[167] [153]"  ";
  410. 7020 [153]A$;
  411. 7025 [137]7010
  412. 7050 [161]A$:[153]"-";[199](157);:[139]A$[178]""[167]7010
  413. 7051 [152]5,A$;
  414. 7052 [151]212,0
  415. 7053 [139]A$[178]""[167] [137]136
  416. 7065 [137]7010
  417. 7100 [153]"LOADCLR (null)LEN(null)VALVAL(null) LEN(null)(null)LEN(null) (null)VAL(null)VAL(null) "
  418. 7110 [133]"SYS(null)TOP LENLOCK(Y/N)  NCMDCMDCMD";SC$
  419. 7120 [139]SC$[178]"Y"[167][158]12[172]4096[170]15[172]256[170]3
  420. 7130 [139]SC$[178]"N"[167][141]7145
  421. 7140 [137]136
  422. 7145 [153]"(null)RESS (null)VAL(null)(null)(null)(null)WAIT (null)O (null)TART LENLOCK"
  423. 7150 [133]"ONONONONONONONONONSYSVALNTER (null)IME (HH,MM,SS)";B(2),B(1),B(0)
  424. 7160 [129]A[178]0[164]2:[151]251[170]A,B(A):[130]
  425. 7170 [158]12[172]4096[170]15[172]256:[142]
  426. 8000 [129]J[178]52992[164]53239:[135]X
  427. 8010 [151]J,X:CH[178]CH[170]X:[130]
  428. 8020 [129]A[178]0[164]2:[151]251[170]A,B(A):[130]
  429. 8025 [142]
  430. 8030 [131]76,6,207,76,87,207
  431. 8040 [131]120,160,2,248,169,0
  432. 8050 [131]24,182,251,202,48,4
  433. 8060 [131]105,1,144,249,153,251
  434. 8070 [131]0,136,16,238,165,253
  435. 8080 [131]201,19,144,7,56,233
  436. 8090 [131]18,9,128,133,253,216
  437. 8100 [131]164,253,166,252,165,251
  438. 8110 [131]141,9,220,142,10,220
  439. 8120 [131]140,11,220,169,0,141
  440. 8130 [131]8,220,173,15,220,41
  441. 8140 [131]127,141,15,220,169,100
  442. 8150 [131]141,20,3,169,207,141
  443. 8160 [131]21,3,169,15,141,250
  444. 8170 [131]207,88,96,120,169,49
  445. 8180 [131]141,20,3,169,234,141
  446. 8190 [131]21,3,88,96,206,250
  447. 8200 [131]207,208,103,169,15,141
  448. 8210 [131]250,207,173,134,2,160
  449. 8220 [131]7,153,32,216,136,16
  450. 8230 [131]250,173,11,220,48,8
  451. 8240 [131]201,18,208,15,169,0
  452. 8250 [131]240,11,41,31,201,18
  453. 8260 [131]176,5,120,248,24,105
  454. 8270 [131]18,141,253,207,216,88
  455. 8280 [131]173,10,220,141,252,207
  456. 8290 [131]173,9,220,141,251,207
  457. 8300 [131]162,2,160,30,189,251
  458. 8310 [131]207,141,249,207,32,211
  459. 8320 [131]207,200,200,153,0,4
  460. 8330 [131]173,249,207,200,153,0
  461. 8340 [131]4,202,16,232,173,8
  462. 8350 [131]220,201,5,176,3,169
  463. 8360 [131]58,44,169,32,141,37
  464. 8370 [131]4,141,34,4,76,49
  465. 8380 [131]234,138,72,169,0,141
  466. 8390 [131]248,207,173,249,207,162
  467. 8400 [131]3,10,46,248,207,202
  468. 8410 [131]16,249,173,249,207,41
  469. 8420 [131]15,9,48,141,249,207
  470. 8430 [131]104,170,173,248,207,9
  471. 8440 [131]48,96
  472. 9900 I[178]828
  473. 9901 [135]A:[139]A[178]256[167]9903
  474. 9902 [151]I,A:I[178]I[170]1:[137]9901
  475. 9903 [139][194](65440)[178]135[167][151]924,189
  476. 9904 [131] 169,1,32,195,255,169,36
  477. 9905 [131] 141,240,3,169,48,141,241
  478. 9906 [131] 3,169,1,162,8,160,0
  479. 9907 [131] 32,186,255,169,2,162,240
  480. 9908 [131] 160,3,32,189,255,32,192
  481. 9909 [131] 255,169,64,32,144,255,162
  482. 9910 [131] 1,32,198,255,32,144,255
  483. 9911 [131] 32,207,255,32,207,255,32
  484. 9912 [131] 207,255,32,207,255,201,0
  485. 9913 [131] 240,58,32,204,255,32,228
  486. 9914 [131] 255,201,32,208,3,32,196
  487. 9915 [131] 3,162,1,32,198,255,32
  488. 9916 [131] 207,255,168,32,207,255,72
  489. 9917 [131] 152,170,104,32,205,221,169
  490. 9918 [131] 32,32,210,255,32,207,255
  491. 9919 [131] 201,0,208,8,169,13,32
  492. 9920 [131] 210,255,76,115,3,32,210
  493. 9921 [131] 255,76,162,3,169,1,32
  494. 9922 [131] 195,255,32,204,255,169,204
  495. 9923 [131] 133,178,96,32,228,255,201
  496. 9924 [131] 32,208,249,96,256
  497. 9999 [142]
  498. 10000 [129]X[178]1[164]800:[130]X:[153]"ON                                    ONONONON":[142]
  499. 11000 [153]:[153]"PRINT#(null)(null)(null)(null) WAIT(null)(null)(null)(null)1WAIT(null)(null)(null)(null) WAIT(null)(null)(null)(null)2WAIT(null)(null)(null)(null) WAIT(null)(null)(null)(null)3WAIT(null)(null)(null)(null) WAIT(null)(null)(null)(null)4WAITON"
  500. 11001 [142]
  501.